﻿Imports System.Data.SqlClient

Public Class frmCatalogosRutasImportar
    Dim Bitacora As New clsActividad
    Dim Usuario As New clsUsuarioPrincipal

    Private Sub frmCatalogosRutasImportar_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Bitacora.RegistraActividad("Cerró al importador de rutas")
        Usuario.Ubicacion("Catálogo de rutas")
    End Sub
    Private Sub frmCatalogosRutasImportar_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ToolStrip1.Cursor = Cursors.Hand
        ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System

        ProgressBar1.Value = 0

        dgClasificaciones.DefaultCellStyle.Font = New Font("Segoe UI", 10, FontStyle.Regular)
        dgClasificaciones.Columns(1).ReadOnly = False

        Bitacora.RegistraActividad("Ingresó al importador de rutas")
        Usuario.Ubicacion("Importador de rutas")

        CargaClasificaciones()

    End Sub
    Sub CargaClasificaciones()
        Dim cnConn As New sqlConnection
        Dim strSql As String
        Dim cmdBuscar As New SqlCommand
        Dim rdBuscar As SqlDataReader

        Try
            cnConn.ConnectionString = CitraConnection
            strSql = "SELECT * FROM MGW10020 WHERE cidclasi01=7 Order by cValorCL01"

            cmdBuscar.Connection = cnConn
            cmdBuscar.CommandText = strSql

            cnConn.Open()
            rdBuscar = cmdBuscar.ExecuteReader

            Do While rdBuscar.Read()
                dgClasificaciones.Rows.Add(rdBuscar("CIDVALOR01"), True, rdBuscar("cCodigoV01").ToString.Trim, rdBuscar("cValorCL01").ToString.Trim)
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message, "System Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If cnConn.State = ConnectionState.Open Then
                cnConn.Close()
            End If
        End Try
    End Sub

    Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
        Close()
    End Sub

    Private Sub ToolStripButton4_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton4.Click
        Dim Rutas As New clsCatalogoRutas
        Dim i As Integer
        Dim Cont As Integer = 0

        Dim Registros As Integer = 0

        For i = 0 To dgClasificaciones.Rows.Count - 1
            If dgClasificaciones.Rows(i).Cells(1).EditedFormattedValue = True Then
                Registros = Registros + 1
            End If
        Next

        With ProgressBar1
            .Maximum = Registros
            .Minimum = 0
            .Value = 0
            .Visible = True
            Application.DoEvents()

        End With


        For i = 0 To dgClasificaciones.Rows.Count - 1
            If dgClasificaciones.Rows(i).Cells(1).EditedFormattedValue = True Then

                Rutas.IdRuta = dgClasificaciones.Rows(i).Cells(0).Value
                Rutas.Nombre = dgClasificaciones.Rows(i).Cells(3).Value.ToString.Trim
                Rutas.Kilometros = 0
                Rutas.cidValor01 = dgClasificaciones.Rows(i).Cells(0).Value
                Rutas.cCodigoV01 = dgClasificaciones.Rows(i).Cells(2).Value.ToString.Trim
                Rutas.cidOpto = 0
                Rutas.Imagen = ""
                Rutas.Importe01 = 0
                Rutas.Importe02 = 0
                Rutas.Importe03 = 0
                Rutas.Importe04 = 0
                Rutas.Importe05 = 0
                Rutas.Texto01 = ""
                Rutas.Texto02 = ""
                Rutas.Texto03 = ""
                Rutas.Texto04 = ""
                Rutas.Texto05 = ""
                Rutas.Guardar()
                Cont = Cont + 1
                Bitacora.RegistraActividad("Importo la ruta " & dgClasificaciones.Rows(i).Cells(3).Value.ToString.Trim)
                ProgressBar1.Value = Cont
                Application.DoEvents()
            End If
        Next

        If Cont > 0 Then
            frmCatalogoRutas.CargaRutas()
            Close()
        Else
            MsgBox("Debes indicar al menos una ruta para importar", MsgBoxStyle.Exclamation, "Aviso")
        End If


    End Sub
End Class